home *** CD-ROM | disk | FTP | other *** search
/ Cracking 2 / Cracking II..iso / Texty / crackme / Keygen source for VisionZ Crackme 1.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1999-07-31  |  2.9 KB  |  87 lines
  1. VERSION 5.00
  2. Begin VB.Form Form1 
  3.    Caption         =   "Keygen for VisionZ Crackme 1"
  4.    ClientHeight    =   1890
  5.    ClientLeft      =   60
  6.    ClientTop       =   345
  7.    ClientWidth     =   4680
  8.    LinkTopic       =   "Form1"
  9.    ScaleHeight     =   1890
  10.    ScaleWidth      =   4680
  11.    StartUpPosition =   3  'Windows Default
  12.    Begin VB.TextBox UserName 
  13.       Height          =   495
  14.       Left            =   840
  15.       TabIndex        =   0
  16.       Top             =   480
  17.       Width           =   3615
  18.    End
  19.    Begin VB.Label Label4 
  20.       Caption         =   "Serial :"
  21.       Height          =   495
  22.       Left            =   120
  23.       TabIndex        =   4
  24.       Top             =   1200
  25.       Width           =   615
  26.    End
  27.    Begin VB.Label Label3 
  28.       Caption         =   "Name :"
  29.       Height          =   495
  30.       Left            =   120
  31.       TabIndex        =   3
  32.       Top             =   480
  33.       Width           =   615
  34.    End
  35.    Begin VB.Label Label2 
  36.       Caption         =   "Keygen source for VisionZ Crackme 1 by SiFLyiNG"
  37.       Height          =   255
  38.       Left            =   480
  39.       TabIndex        =   2
  40.       Top             =   120
  41.       Width           =   3615
  42.    End
  43.    Begin VB.Label Label1 
  44.       Appearance      =   0  'Flat
  45.       BackColor       =   &H80000005&
  46.       ForeColor       =   &H80000008&
  47.       Height          =   495
  48.       Left            =   840
  49.       TabIndex        =   1
  50.       Top             =   1200
  51.       Width           =   3615
  52.    End
  53. Attribute VB_Name = "Form1"
  54. Attribute VB_GlobalNameSpace = False
  55. Attribute VB_Creatable = False
  56. Attribute VB_PredeclaredId = True
  57. Attribute VB_Exposed = False
  58. Private Sub UserName_Change()
  59.     serial$ = ""
  60.     For i = 1 To Len(UserName.Text)
  61.         Char = Asc(Mid$(UserName.Text, i, 1))
  62.         If Char < 65 Or (Char > 90 And Char < 95) Or Char > 122 Then 'char between A/Z et a/z
  63.             GoTo next_char 'if not goto next char
  64.         Else
  65.             User_Name = User_Name & Trim(Chr(Char)) 'add char to user_name
  66.         End If
  67. next_char:
  68.     Next i
  69.     User_Name = UCase(User_Name) 'name in uppercase
  70.     Debug.Print User_Name ' just useful for degugging
  71.     If Len(UserName.Text) < 3 Then 'len of the transformed code must be upper to 2
  72.         Label1.Caption = "Here you will get the code"
  73.         Exit Sub
  74.     End If
  75.          
  76.     'the loop for the beginning of the serial
  77.     For i = 1 To Len(User_Name) - 1
  78.         a = Asc(Mid(User_Name, i, 1))
  79.         b = Asc(Mid(User_Name, i + 1, 1))
  80.         serial$ = serial$ & Trim(Chr((b - 2) * 2 - a))
  81.     Next i
  82.     'the calculation of the last char of the serial
  83. serial$ = serial$ & Trim(Chr(((Asc(Mid(User_Name, 2, 1)) - 2) * 2) - Asc(Mid$(User_Name, Len(User_Name), 1))))
  84.     Label1.Caption = serial 'displays the serial in label1
  85.     Clipboard.SetText serial 'copy the serial to clipboard
  86. End Sub
  87.